home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / enigma / earcd / comm / comm2 / pager.lha / PagE!r / PagE!r_player < prev    next >
Text File  |  1996-11-09  |  978b  |  26 lines
  1. /*************************************************************************/
  2. /*                    PagE!r_player v1.0  by Morpheus                    */
  3. /*************************************************************************/
  4. /* playcmd : player command + path                                       */
  5. /* playwhat: name of the sample/mod/whatever that will be played + path  */
  6. /* play_nr : maximum number of times the sample/mod will be played       */
  7. /* pause   : delay between samples/mods in 0.01 secs                     */
  8. /*************************************************************************/
  9. playcmd = 'C:play16'
  10. playwhat = 'Doors:PagE!r/PagE!r.sound'
  11. play_nr = 5
  12. pause = 200
  13. /********************************* Script ********************************/
  14. options results
  15. parse arg node
  16. port='PAGERPORT'||node
  17. do 50 while ~show('P',port)
  18. call delay(10)
  19. end
  20. i=0
  21. do while i<play_nr&show('P',port)
  22. address command playcmd||' '||playwhat
  23. call delay(pause)
  24. i=i+1
  25. end
  26. exit